home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 July / 1985-07.d64 / sliding forest (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  189b  |  7 lines
  1. 5 print"[147]"
  2. 10 forl=54272to54295:pokel,0:next:poke54296,15
  3. 20 poke54277,8:poke54278,255:poke54276,21:f2=255
  4. 30 forz=1to50:poke54287,f2:rem no. of cycles
  5. 40 forf1=255to0step-20:poke54273,f1:f2=f2-.4:nextf1:nextz:poke54278,15
  6. 45 list
  7.